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SSS yyy yYY SSS LLL 000 000 AAA ABA 
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SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
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SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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@ ; DECLARATIONS 

(3) CNXSALLOZMEM = Allocate and zero memory 

(4) 11 CNXSRANDOM = Generat ’ random number 

(5) 6 CNXSRANDOM_INIT = Initialize Random Number Generator Context 

(6) CNXS$RESOURTE_SUCC = Note resouce allocation suscoss 

(6) 0 CNXSRESOURCE FAIL = Check for resource exhaustion following failure 

(6) 04 CNXSRESOURCE-CHECK = Check for resource exhauztion 


<- 


B 6 
CONSUB = Connection Management Utility Subrouti 16-SEP-1984 00:28:1 AX/VMS 4- 
Vous00 . nang ets 7 8? 65:18 YEYSLOA. RE eon SUBS MAR: 1 See d) 


-TITLE CONSUBS = Connection Management Utility Subrouti 
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FACILITY: EXECUTIVE, CLUSTER MANAGEMENT 


ABSTRACT 
this module contains several utility routines for the connection manager. 


ENVIRONMENT: VAX/VMS 
AUTHOR: Dave Thiel, CREATION DATE: 13-Dec-1983 
MODIFIED BY: 

V03-003 DWT0198 


David W. Thiel 23-Mar-1984 
Add CNXSRESOURCE eHECK. " CNKSRE SOURCE FAIL, CNXSRESOURCE -Succ 
to manage system resource exhaustion. 
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Sooooooooo 
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V03-002 DWT0187 David W. Thiel 5-Mar-1984 
Really repair rendon number generation. 
V03-001 DWT0176 David Ww. Thiel 21-Feb-1984 


Correct random number generation. 
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} ~SBTTL DECLARATIONS 

; INCLUDE FILES: 

: ter Block offsets 
otrusture type codes 


Fork block offsets 
3; System block offsets 


3 

4 

5 

: 
¢. BARBARA RBRARARARAAASAASARLALAALEASE LARS S ESAS ELAR ERE SERRE E RRR L ERE SEES OS 
4 

é | 
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9 

0 

1 


CLU 
CSB 
Data 


; NOTE: The following assumptions are in effect for this entire module. 


ITIP ISP P Tier i iri iii iii ii iiiititiiiiiiiiiiiiiitiiiiiiit. 
-DEF AULT DISPLACEMENT , WORD 
-PSECT $$$100,LONG ; PSECT for code 
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~SBTTL CNXSALLOZMEM = Allocate and zero memory 
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FUNCTIONAL DESCRIPTION: 
This routine allocates and zeroes a piece of poet. The size of 
the allocated block is stored in the block. he type field is set 
to DYNSC_CLU. 

CALLING SEQUENCE: 
JSB CNXSALLOZMEM 


INPUT PARAMETERS: 


R1: Size of the block of memcry to allocate. 
OUTPUT PARAMETERS: 
R2: Address of the allocated block of pool. 


COMPLETION CODES: 
RO contains status. 
SIDE EFFECTS: 


SDOoOOSOOCCOCOSCOOOCOCOCOOCOOOOOSOOOSOOOOOO oa 


OV*OO MAB SESSSSSSSSSSESESESSSSS SSCS SOS SESEESS oe 
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tS | | “DOO DODOO0O000 000 000000000909 0909 09090909 SI IIIA 
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1 
1 NONE 
Bs 1 
0 1 ao 
00 1 
4 1 CNXSALLOZMEM: : 
00000000'GF 16 1 JSB 7a eecenmdenae ; Allocate nents 
16 30 E9 oe 1 BLBC ; Branch on erro 
E ge 0 1 PUSHR - heh! R2,R3,R4,R5> 3; Save volatile registers 
62 51 00 6€ C 1 MOVCS SPs ,#0,Ri (Re) : Zero the block 
. BA 1 1 POPR 1 ke a3 Re ; Restore registers 
08 A2 80 + MOVW Rt Ane S126 ( Roy : Block size 
OA A 65 8F 1 1 MOVB #DYNSC ; Store generic cluster type 
1 1 FKBSB CrypER2) 
50 00° 0 1 1 MOVL “#SS$_NORMAL ,RO 3; Set success status 
0 } ' 10$: RSB 3; Return 
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-SBTTL CNXSRANDOM = Generate a random number 


CONS = Connection 
yous008 CNXSRANDOM - 


+ 
++ 


FUNCTIONAL DESCRIPTION: 

This routine generate a random integer whose range is determined by RO. 
CALLING SEQUENCE: 

JSB CNXSRANDOM 
INPUT PARAMETERS: 


R4: Address of CLUB 

RO: Upper bound+! on number generated (assumed positive) 
OUTPUT PARAMETERS: 

RO: Random integer in range 0..R0 
COMPLETION CODES: 

NONE 


SIDE EFFECTS: 
R1 is destoryed. 


oO Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Sse Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge 
q 
4 


NXSRANDOM: : 
PUSHL Save upper bound 
EMUL Compute new context using 


50 RO 
01 00010DCD 8F 0080 ge CLUBSL_RANDOM(R4), - 


PPPS IES SB EB BEE ENA NII III IPPOIPINIPIPUNININ S|) EE 


SOOONOMEWN = —OOODNAOUE WO ODNOUES WIN" OODNOULS UN "0O00 8a 


ee aS a es a ss tb a a ss 2 5 2 a a a tn a a a a 4 te 


#69069,#1,R0 3 context = context*69069 + 1 
0080 ¢4 50 MOVL RO, CLUBSLRANDOM(R4) § : Update context 
6E 1 CMPL R1, (SP) :; Test for overflow in EDIV 
5 BLSS 10§ ; Branch if no over thew and positive 
50 : Po R1,R0 ; Mash it all into R 
50 51 50 8E 10$ EDIV (SP)+,RO,R1,RO : Remainder to RQ 
RSB ; Return number in RO, range 0..R0-1 
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~SBTTL CNXSRANDOM_INIT = Initialize Random Number Generator Context 
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++ 
FUNCTIONAL DESCRIPTION: 

This routine initializes the random number generator context 
; CALLING SEQUENCE: 

JSB CNXSRANDOM_INIT 
INPUT PARAMETERS: 

R4: Address of CLUB 
OUTPUT PARAMETERS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

RO and R1 are destoryed. 


SNNNININNINSINIOOOOOOOD & 
Sete Ge Se Ge Sete 


CNXSRANDOM_INIT:: 
MO 6, SCRSER_SYSTERID RO 


A Get local system ID 
XORL2  G*EXESGQ_SYSTIME+2,RO 
B*10$,R1 


Mash into one longword 

Incorporate active part of time 
Get another system dependent value 
Merge it into value 

and store it 


—_ 
o 
of 
3 
< 
> 


R1,R0. - 
CLUBSL_RANDOM(R4) 
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INS a 8 a ss a as a as as ts 2 2b — 2 bs 2s sn a a as a a tt ss 


54 


54 


OF 50 


5m 
00000000 ° GF 


6C A4 
10 


11 
00000000 * GF 
6C A4 
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-SBTTL CNX 
~SBTTL CNX 


SOURC 


b = Check 
SOURC x 


+ 
oe 


FUNCTIONAL DESCRIPTION: 
These routines attempt to prevent 
connection or other code 


alls " these r 


ollowing constraint: If 


is successf 


and machines will unnecessar 
CALLING SEQUENCE: 


SIDE EFFECTS: 


ALL registers are preserved. 
If a state of resource exhaustion 
shut itself down with a resources 


Sete Ge Ge Se Ge Ge Ge Ge Se Se Ge Se Ge Se Ge Ge Se Se Ge Ge Se Se Ge Se Ge Se Ge Se Ge Ge Se Ge Se Se Se Ge Ge Ge 


CNXSRESOURCE _CHECK: : 

LBC RO, CNXSRESOURCE _FAIL : 
CNXSRESOURCE SUCC:: 
PUSH R4 


MOVL G*CLUSGL_ CLUB ,R4 
CLRL cL Uest, RETRYCNT(R4) 
ss #*AcR4S 


CNXSRESOURCE _FAIL:: 
PUSHR #*M<RO,R4> 


MOVL G°cLUSGL CLUB, 
TSTL CLUBSL_RETRYCN 


DIA AIT BS SS IIIA IAIN 2 
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uce = Note resource allocat aad ot 8:89:49 ESYSLOA. SREICONSUBS MAR: 1 
-SBTTL NXSRESOURCE-FATL - Note resouce allocation succes 
R “CHECK = Check for resource exhaus 


nes may be pla 
he rout 
allocate ea pers tuber resource, they must 
ully allocated. If the 

these routines must be called indicat 
this is not done, false resource exhaus 
ly be shut down. 


JSB CNXSRESOURCE_CHECK = Resource allocation success/failure status in R 
JSB CNXSRESOURCE_FAIL = Implied resource allocation failure 
JSB CNXSRESOURCE_SUCC = Implied resource allocation success 
INPUT PARAMETERS: 
RO: Resource allocation success/failure (CNXSRESOURCE_CHECK only) 
OUTPUT PARAMETERS: 
NONE 
COMPLETION CODES: 
NONE 


: Save register 
; Address of sus 
; Is ths the first failure? 


oe (8) 


$s 
or resource exhaust qn following failure 
tion 


infinite resource waiting loops in the 
critical to the cluster. 
gee in resource wait loops with the 
nes are ever called on a failure to 
a | be called when that resource 

cat er ‘bails-out’’ of the wait loop, 

ng a successfull allocation. If 
ed conditions will be detected 


is discovered, the system will 
exhausted bugcheck. 


Handle failure case 


Save register 
Address of CLUB 
Clear timeout cell 
Restore register 


6 
- - -00 C 
vO6-000 CNXSRESGUPCE, CHE agement UE} sty subrourt tgs w$Ep=198e Qa:6P:09 ESSLOA.SReScONSUBScmaR;1 "8 (dy v0 


10 2 4 59 BNE 10$ ; Branch if not first failure 
dsooosee er” fp ‘ MOV IWL eck CNXINT,RO ; Retry interval 
GF 0 ¢ ADOLS ee (GrEKESG pests - 3 Compute time-out absolute time 
( 


—O 


RE 
GL 
§ CLUBSL RE ETRYCN 
6C AG Q0000000'GF 01 7 108: CMPL 6*E Resch Agstin ; Compare current time to time-out 


BGTRU ¥ 3; Branch if timed-out 
POPR 


OO OOwodc 
FOOOmmn 
NOW 


1A 
F Ba #*M<RO,R4> ; Restore register 
5 RSB 
20$ BUG_CHECK RESEXH, FATAL ; Resources exhausted, node exiting cluster 


RES 
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Symbol table ° . §- Ep: 138 82: 85: 1 SYSLOA. SRE ECON ONSUBS .MAR; 1 - &) vo 
BUGS_RESEXH eetereee 03 
CL UB geeeeere K 
CL “RECNXINT seeneeee 
aoe aoe = £08 
= 
ih ey ‘ 
CNXSRE SOURCE _CHECK i 
CNXSRESOURCE FAIL 
CNXSRE Succ 
DYNSC_CL = 
EXxESsAC AGED teeeeeee x 
EXESGL_ABSTIM eerecere § x 03 
restr sas 
= 
EEOHSLTE ay = 90808008 
$$8 NORMAL eentenee 8 6X 85 
eee eret een ese ccee + 
: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS . 9444464 ( °} 99 -} NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ 0000 ( > NOP IC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$100 QOOOO09F ¢ 2 ¢ '} NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC LONG 
Gupeseneuasseweceenssanentd 
: ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Command proces ; 13 Dt 09 
ei rocess " . 
he 68 04 17.72 
foe table sort 6h 244 J 
Symbol table output & 9 2 ¥ 3 
Psect synopsis output 1 ‘ 01 
Cross-reference output 8 ° . 
Assembler run totals 43 . 


he working oes Limit was 1350 pages. 
set60 bytes (48 pages) of virtual memory were used to buffer the intermediate code. 
There were 30 pages of symbol table Pace, allocated to hold 447 non-local gnd local symbols. 
source lines were read in Pass 1, producing 15 object records in Pass 2. 
pages of virtual memory were used to define 12 macros. 
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Pormaeen or ee senor ereco eee zee} 


! ; Macro Library statistics ! 


seeeceoe SS SSS eeeenonoenea . 


Macro Library name Macros defined 


33bun :CSYSLOA. 01 2CLusTER. -MLB;1 0 

:CSYS.08 
YSLIB STARLET. Pale: 32 

Bitte (all. braries) 

513 GETS were required to define 9 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$: CONSUBS/0BJ=0BJ$:CONSUBS MSRC$: CONSUBS/UPDATE=(ENHS: CONSUBS) +EXECML$/LIB+LIB$:CLUSTER/LIB 
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